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I. 


INTRODUCTION 


This paper describes a set of programs designed to be run on the IBM 370/158 
computer at Ohio University. These programs ore used to read the recorded time differences 
from the tope produced by the Loron data collection system ^ , convert them to latitude/ 
longitude and produce various plotting input fiies. The programs hove been written so they 
may be tailored easily to meet the demands of o particular data reduction fob. The tope 
reader program is written in 370 assembler language and the remaining programs are written 
in standard IBM FORTRAN-IV language. The tape reader program is dependent upon the 
recording format used by the data collection system and on the I/O macros used at the 
computing faciiity. The other programs are generally device-independent, although the 
plotting routines will be depenc .it upon the plotting method used. 

Figure 1 shows an overali view of the flow of data from the receiver, through the 
Loran interface unit, to the microprocessor, and the main computing facility. The basic 
function of the data reduction programs is to convert the recorded data to a more readily 
usable form; convert the time difference (TD) numbers to latitude/iongitude (iat/long), to 
format a printed listing of the TDs, lat/iong, reference times, and other information derived 
from the data, and to produce data files which may be used for subsequent plotting. 

II . THE TAPE READER PROGRAM 

Figure 2 shows a functional flow diagram of the tape reader program. Its main function 
is to find and separate valid data from the tape input. The present format of the recorded 
tapes is a continuous string of numbers containing the GRI count, and the two TDs. A typical 
tape record is shown in Figure 3. Although the record format depicted in Figure 3 is eight 
words of ten bytes each, this is not always the case. Because of the recording operation of 
the microcomputer, the word positions may be offset to the left or right of the start-record 
position by a variable number of bytes. It is also possible that an incomplete word was recorded, 
i.e., one of the three fields (GRI or the TDs) may have been omitted for some reason (usually 
an interrupt timing problem). Completely invalid data may be included because of initialization 
problems. The recorded data is in a packed BCD format, as opposed to ASCII or EBCDIC which 
is more commonly used in the computer. The tape reader program, then, must correctly identify 
complete data fields, rejecting those which are incomplete or otherwise invalid. The program 
then converts the data from the packed decimal form to EBCDIC and stores it on a disk file 
and/or a tope volume. A running count is kept of errors encountered while reading the input 
tape. 


For the discussion which follows, reference is made to the complete program listing 
in Appendix I . After reading a record from the tape input, a check is made to determine if 
any errors have been returned from the operating system. An end-of-file (EOF) indication 
is handled separately and causes the program to close all files and terminate execution (normal 
exit). If a permanent i/O error Is encountered, the record is skipped and the next record is 
read. A count is maintained of all records skipped in this manner. There are several reasons 
for permanent I/O errors such as, improper inter-record gaps, or improper recording of the 







Figure 1 . Flow of Data Through Loran Data 
Collection System. 
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Figure 2. Flow Diagram for Tape Reader Program. 
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record. The detection and handling of such errors are functions of the tape unit and tape 
channel used at the computing facility. Any other errors encountered cause an error message 
to be generated, all files closed, and execution to be terminated. 

After a record has been correctly read, the program scans the record for the first 
occurrence of the TDA mask. Currently, this mask is a hexadecimal "A" in the upper four 
bits of the most-significant-digit (MSB) of the TDA field. When the TDA mask is found, 
the digit pointer backspaces four bytes to point to the first byte of the GRI count. Then a 
check is made for the TDB mask which is the hexadecimal character "B" in the upper four 
bits of the MSB for the TDB field. Aftei this is verified, a check is mode to ensure that 
there are ten digits in the word. It ony of thsise checks fails, the word is skipped and the 
next word is tried. A separate count of these errors is kept. 

The tape reader program must take into account the fact that part of a word may be on 
the previous line or on the succeeding line (tape record). If, while checking the word lengths, 
it is found that some of the first several bytes are missing, the program assumes that these bytes 
were on the last record. In this case, it assumes that these bytes are already in a temporary 
buffer which was built during processing of the previous record. Then the remaining bytes on 
the present record are used to fill out this temporary buffer which is then sent to the format 
conversion routine. If- while checking the word length, it is found that some of the bytes 
at the end of the word are missing, the bytes that ere present are stored in a temporary 
buffer and another record is obtained, where it is assumed that the remaining bytes will be 
found . 


When it has been ascertained that a proper ten-byte word exists, a subprogram is called 
which changes the packed decimal form to a zoned (EBCDIC) format. A check is made to be 
sure that ten bytes have actually been passed to the conversion routine; also the ten bytes are 
checked for valid characters. If these checks fail, the word is purged and the invalid word 
count is increased by one. Before the format conversion takes place, the two TD masks are 
stripped off (replaced by a four-bit zero). The format conversion is accomplished by taking 
each four-bit digit (20 in total) and prefixing it with the four-bit hexadecimal "F", Thus, 
the ten-byte word is converted to a 20-byte EBCDIC word. 

The reformatted word is placed in an output buffer. The possible outputs are: a disk 
file with a dataset name specified when the tape reader program was called, and/or a tape 
volume. After the output record (s) are written, another pass is made to process another TD 
data word. 

An additional feature built into the data recording system allows event-marks to be 
identified uniquely by writing an incrementing number into the most significant byte of the 
GRI count. For no events entered, this MSB digit is set to zero. The tape reader program 
tests the MSB of the GRI number; if it is non-zero, the entire TD word is converted to zoned 
format and stored on a separate disk file. 
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SUPERVISOR PROGRAM 


The supervtior program is used during the TD*^o-position conversion operation. Figure 4 
shows a functional diagram of this program. A complete listing is given in Appendix II . The 
particular version of the supervisor to be discussed here was designed primarily for the CMS 
interactive system. To be used in other ^sterns, such os OS/VS, some of the read and write 
statements and possibly some format statements need be changed. In order to facilitate use 
by other agencies/ I/O operations ore confined to this supervisor program; except for subroutine 
DBREAD, which does its own file-read operations. 

The supervisor requests the user to enter parameters for the data reduction fob. These 
parameters, in order of entry, ore: the dead -reckoned latitude, dead-reckoned longitude, 
the number of input data points to be skipped between calculations, the basic Loran chain 
rate, the reference longitude. The dead-reckoned latitude and longitude ore used to initialize 
the TD-to-position subprogram. The position may be approximate; within one to two degrees of 
the actual position. Since the conversion program requires a dead-reckoned position each time 
it Is called, the last position calculated is used for the new dead-reckoned position. Because 
the input file containing the time differences can be quite large, it would take an excessive 
amount of time to convert every point. If the data is collected at the maximum rate, then 
there will be approximately ten points every second of real time. Under normal circumstances, 
one-tenth second represents a very small change in position; thus, the third entry to the super- 
visor program allows a number of input data points to skipped in between calculations, saving 
time. The maximum value for this entry is to do one calculation for every 9999th data point. 
The entry for basic chain rate is used for calculating the time between each set of data points. 
This is found by multiplying the GRI count read in from the data by the basic chain rate and 
dividing by 3600, giving the time in hours. This entry is made in decimal format; e.g. if 
the chain rote is 89700, enter 0.0897. This is the chain rate in fractional seconds. The final 
two entries ore a reference position passed to the range/ozimuth routine . Thus the range and 
azimuth of each calculated point may be found relative to the reference . 

After the parameters are read in, the appropriate subprograms are called to read in a 
data point, convert it to lat/long, and convert it to range/azimuth. The first point is used 
as a time reference and the GRI count of each succeeding point is used to calculate the time 
elapsed since the first point. All of the information obtained by the supervisor program is 
formatted into a listing which is generally printed. Figure 5 shows o sample listing. A separate 
dataset File is also employed to write the range/azimuth or lat/long, which is then used as 
input to the plotting programs. 


IV. SUBPROGRAM DBREAD 

Subprogram DBREAD Is used to obtain a GRI count and the two time differences from 
the input file. The operation of DBREAD is outlined in Figure 6. The complete listing is 
shown in Appendix III . The present version of this program reeds from an 80-byte input file, 
each record containing four GRI and TD words. Several checks of the numbers read in are 
performed to minimize problems in other subprograms. One of these checks is a blunder point 
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Figure 4. Flow Diagram for Supervisor Program. 
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> Figure 6. Flow Diagram for Subprogram DBREAD. 









trap to delete a number !f it differs significantly from the last number read in. Each TD 
count is held and compared to the new ones read in. If the difference is greater than five 
microseconds, the ne>. number is deleted and the next number is tested. If the test fails 
ten consecutive times, the new number replaces the old number used for the comparisons. 

The purpose of this is to remove one TD reading which Is off from the rest for some reosor.. 
but to be able to recover if there is a gap in the data because the data collection system 
was stopped briefly . 

Other data checks include a provision to defeat the TD comparator on the first call 
to DBREAD. An offset may be added to the time differences if desired for analysis of tracking 
errors. When an end-of-fila condition is detected on the input, the GRI count and the time 
differences are set to zero . 

Care should be exercised if this program is modified since this program depends on 
values from previous calls to determine if any error conditions exist. For this reason, some 
variables in the program are initialized in a DATA statement and some are initialized in a 
arithmetic statement. 


V. SUBPROGRAM TDPOS 


Subprogram TDPOS is a subroutine which converts two time difference numbers to 
latitude and longitude. This program is a modification of an interactive program^ already 
developed for TD conversion*^. A listing of this program is given in Appendix IV. This 
program requires that the two TD numbers and the dead-reckoned position be included in the 
argument list each time it is called. The dead-reckoned position has been discussed briefly 
in the last section. The further off the dead-reckoned position is from the actual position, 
the more iterotions are necessary to obtain a solution. If the dead-reckoned position is too 
far off, the calculations may diverge and result in no solution. The number of iterations is kept, 
ond an error condition is noted if the number of iterations becomes too great. Any error 
conditions are returned in the lERROR argument. lERROR is positive for no error and negative 
if an error occurs. The computed position is returned in the argument POS. 


The chain constants required by TDPOS are provided in a separate BLOCK DATA file. 
An example is given in Appendix V. Each such file contains the necessary chain data for 
the master and two selected secondary stations along with the semi-major and semi-minor radii 
of the earth . 


VI. RANGE/AZIMUTH SUBPROGRAM 

Subprogram RNGAZ is used to obtain the geodesic arc length and the bearing angle 
from a given position to a reference position. This program is based on an arc-length compu- 
tational method used to calculate predicted Loran-C time differences^. A complete listing 
may be found in Appendix VI . The arc length is computed on a reference ellipsoid. This 
procedure incorporates similar corrections used for Loran-C; i.e., basic shape of the 
ellipsoid and propagation constants. 


Double precision arithmetic is used in this subprogram to maintain accuracy at 
short arc-lengths. It was found in testing a similar program written in single-precision/ 
that when the arc length was less than several mileS/ that some of the intermediate results 
suffered severely from round-off errors. As a result, underflow and overflow problems 
occurred when the program was run. With the double-precision method, it has been found 
that no such problems occur and the results are sufficiently accurate at arc-lengths down to 
one-half mile. 

The results returned by this subprogram are in nautical miles for the arc-length 
and degrees for the bearing. If desired, other units may be easily obtained. Input to this 
program is the latitude and longitude in decimal degrees. 


VII. PLOTTING 

Plotting the results of a test flight provides a quick means of analyzing visually 
the data obtained rather than relying on the printed listing. The listing may be used for 
accurate point-by-point evaluation, if desired. This section will briefly discuss how the data 
reduction programs may be used for plotting the data. The plotting routines used in this case 
are contained in the standard Calcomp plotting package available to FORTRAN users. An 
example of a FORTRAN-IV program using thr range/angle information as input is shown in 
Appendix VII. A typical plot is shown in Figure 7. The plotting package is quite flexible 
and allows the user to write a plotting program to satisfy the requirements of the job at 
hand. 


The data reduction programs can produce one or more compact data files which may 
be used as input for a plotter program. These files usually will only contain the computed 
latitude and longitude or the range and bearing. Thus these files may be considerably 
smaller in size than files used to produce them. This makes them easier to store and allow 
a number of plots on different scales to be produced using the same input file. 


VIII. SUMAAARY 

The data reduction programs consist of several separate programs used for reading 
Loran data and producing more usable information. The tape reader program may be used 
separately to obtain formatted time difference numbers. The remaining programs convert the 
time differences to latitude/longitude and produce plotter input files. These programs hove 
been written so that they may be modified easily to meet the demands of a particular data 
reduction job. 


IX. ACKNOWLEDGEMENTS 

These programs were written as an aid to flight test work using Loran-C navigation 
methods in general aviation. This work is being supported by NASA Grant NGR 36-009-017. 
Subprogram DBREAD is a modification of a similar program written by Dr. R.W. Lliley. 


- 11 - 







X. REFERENCES 

[ 1 1 Nickum, James D,, "Loran-C Flight Test Software" NASA Technical Memorandum 
No. 61 , Avionics Engineering Center, Deportment of Electrical Engineering, Ohio 
University, Athens, Ohio, August 1978. 

[ 2 1 Piecuch, Lynn M, and R. W. Ulley, "Interactive Loran-C to Geographic and 

Geographic-to-Loran-C Computation," NASA TM 52, Avionics Engineering Center, 
Department of Electrical Engineering, Ohio University, Athens, Ohio, August 1977. 

[ 3 J "Loran- to- Geographic Conversion and Geographic-to-Loran Conversion," Informal 

Report N-3-64, Naval Oceanographic Office, Washington, D.C., June 1964. 

[ 4 ] Kayton, Myron and Walter R. Fried, editors, "Avionics Navigation Systems," New 
York, John Wiley and Sons, inc., 1969, pp. 26-7. 


XI. BIBLIOGRAPHY 

The following publications may prove useful in explaining the computer languages 
used in this report and how to properly interface these programs to the operating system. 

IBM System/360 and System/370 FORTRAN IV Language, GC28-6515-10, IBM Corporati^. , 
May 1974. 

OS/'/S-DOS/VS-VM/370 Assembler Language, GC33-4010-4, IBM Corporation, January 
1975. 

IBM System/370 Principles of Operotion , GA22-7000-5, IBM Corporation, August 1976. 

IBM Virtual Machine Facility/370; CMS Command and Macro Reference , GC20-1818-1, 
IBM Corporation, August 1977. 

IBM Virtual Machine Facility/370: CMS User's Guide , GC20-1819-0, IBM Corporation, 
October 1976. 


- 13 - 


UPPBIIDIX I Listinq for tlia Tsp« Reader proqrae 



PILE: TAPONF ASSEBBI.R C 


OHIO 0NI7ERSITT A7I0HICS BVGIirBBBIRG CBITBg. 


TITLE 'TAPUEP - OSFOBHAT PROGBAH FOR LORAM-C DATA BBCORDBO OB 
TAPE. • 

PRINT ON,GBN,NOOATA 
SPACE 2 


* 


THIS PPOGRAH IS DESIGNED TO READ IN LORAN DATA RECOBDBD 
ON MAGNETIC TAPE. IT RBB07RS THE TD MASKS AND CHANGES 
THE DATA FROM PACKED TO ZONED (EBCDIC) . THE ZONED 
DATA MAI THEN BE STORED ON DISK, OSING THE FILEID 
specified, and/dr mat be STORED OH ANOTHER TAPE. 

LORAN EVENT NARKS ARB BEHOVED AND STORED ON DISK 
WITH THE FILEID ' (J'H) EVENTS Cl. • 


4>**********«*«<****«>4i««*4M|i«*«******4i****4>«>*i|i****«*4i«*4>****«(««*«**««*4i** 


TTAP00010 
TAP00020 
TAP00030 
TAPODOAO 
TAP00059 
TAP00060 
TAP00070 
TAPOOOflO 
TAP00090 
TAPOO 00 

TApr* no 

TAPO0 120 
TAP00130 
TAPOO 140 
TAPOO 150 
TAPO0 160 
TAPOO 170 
TAPOO 180 
TAPOO 190 


EBECLNG 

TAPONF 


PtJTINA 


OPTCHBCK 


SPACE 

3 


TAP00200 

LCLA 

SRECLNG 

DESIRED TAPE LENGTH 

TAP00210 

SETA 

250 


TAP00220 

START 

T'20000» 

POINT PAST NAHB ^ 0/f^ 

NOTHING SPECIFIED? 

IF SO, THEN ERROR ^ 

TAP00230 

USING 

TAPUNF,12 

TAP00240 

LR 

12,15 

TAP00250 

LA 

1.8(,1) 

TAPOO 260 

CLI 

0( 1) ,T*FF» 

TAP00270 

BE 

CHDERROR 

TAPOO 280 

CLI 

0{1),C (• 

OPTIONS DBLIHITBR? 

TAPOO 290 

BNE 

*+B 

SEE IF NODISK SPECIFIED, 

TAP00300 

B 

NODISKTS 

SEE IF IT'S NODISK 

TAP00310 

CLI 

R ( 1) ,X'FF« 

IF HOT, THEN ERROR 

SEE IF THERE IS A FILET YPB 

TAPOO 329 
TAP00330 

BE 

CHDERROR 

IF HOT, THEN ERROR 

TAPOO 340 

CLI 

R(1),C* (* 

OPTIONS? 

TAPOO 350 

BNE 

♦ ♦12 

YES, CHECK FOR NODISK 

TAP00360 

LA 

1,8(,1) 

POINT TO OPTION (?) 

TAPOO 370 

B 

NODISKTS 

CHECK FOR "NODISK" 

TAPOO 380 

CLI 

16 (1) , X*FF» 

CHECK FOR FIL ERODE LETTER 

TAPOO 390 

BE 

PUTINA 

IF NONE, THEN SUBSTITUTE "A" 

TAP00400 

CLI 

16 (1) ,C (• 

OPTIONS? 

TAP00410 

BE 

PUTINA 

MOVE IN DISK "A" 

TAP00420 

HVC 

DTSKNAHE>8 (18) , 0 (1) COHPLETE ID, HOVE TO FSCB 

TAP00430 

MVC 

BVNTCTL+8(8) 

,0(1) FN FOP EVENTS 

TAP00440 

HVT 

DTSKNAHE^25, 

C » STICK IN ADDITIONAL SPACE 

TAPOO 450 

LA 

1,24(, 1) 

LOOK AT BEGINNING OF OPTIONS 

TAP00460 

B 

OPTCHBCK 

NOW CHECK FOR HODIFIBRS 

TAP00470 

spa:e 

HVC 

DISKNAHEf8(16) ,0(1) HOVE IN PARTIAL ID 

TAPOO 480 
TAP00490 

HVC 

EVHTCTL+8 (8) 

,0(1) FN FOR EVENTS 

TAPOO 500 

HVI 

T)ISKNAHB^24, 

C'A* HOVE IN "A" 

TAP00510 

HVI 

DTSKNAHE^25, 

C» » HOVE IN SPACE 

TAP00520 

LA 

1,16(,1) 

LOOK AT OPTIONS 

TAP00530 

SPACE 

CLI 

0(1), C* (• 

SEE IF THERE IS OPTION DELIH. 

TAP00540 

TAP00550 
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PILE: T4P0tIP ASSEMBLE Z 


OHIO mflVERSITT ATIOIICS EI6IIEBRIEG CENTER 


BUR BEGIEET 
lA 

SPACE 2 


EO, BEGIN RAIN EXBCGTION 
ROVE PAST OPEN PARSE. 


* 


THE OPTIONS ALtORED BT THIS PBOGRAH ARE: "IN" TO 

CHANGE THE TAPE IN 7ADDR FROH THE DEFAULT 181 TO ANOTRBB: 
"OUT" TO CHANGE THE TAPE OOT fADDR FROH THE DBFADLT 
182 TO ANOTHER; "NODISE" TO SOPPRESS WRITING THE CONfBlIBD 
DATA ONTO A DISA BOFFER, THIS OPTION HAT ONLY BE DSED IF 
"TAPE" IS SPECIFIED, EVENTS NARES ABE STILL NBITTBN; 

"TAPE" TO DORP THE CONVERTED DATA ONTO TAPE AT ADDRESS 
182 OR THE RODIFIED ADDRESS. 


TAPD0S60 

TAP00570 

TAP00580 

TAP00590 

TAP00600 

TAP00610 

TAP00620 

TAP00630 

TAP006N0 

TAP006S0 

TAP00660 

TAPD0670 

TAP00680 

TAP00690 


OPTLOOP 


t**«**4 

N**P«*«**«»4i4i**< 


**• TAP00700 

SPACE 

2 


TAP00710 

CLT 

0(1),X»FF» 

NOTHING THERE? 

TAP00720 

BE 

BEGIN EX 

IF NOT, HO OPTIONS; RON RAIN PROG. 

TAP00730 

CLI 

0 (1),C») • 

CLOSING PARBN.? 

TAP00740 

BE 

BFGINEX 

IP YES, START BXBCOTION 

TAP00750 

CLC 

0(8,1) ,OPTIN 

SEE IF "IN" WAS SPECIFIED 

TAP00760 

BE 

HVTPINAD 

YES, HODIFY TAPB-IH VADDR 

TAP00770 

CLC 

0(8,1) ,0Pr00T 

SEE IF "OOT" SPECIFIED 

TAP00780 

BE 

HVTPOOTD 

TBS, GO HODIFY TAPE-OHT VADDR 

TAP00790 

CLC 

0 (8,1) ,OPTNDSK 

SEE IF "NODISK" SPECIFIED 

TAP00800 

BE 

NODSKPRC 

SET FLAG SO WRITING TO DISK 

TAP00810 

CLC 

0 (8, 1) ,OPTTIPE 

SEE IF SECOND TAPE TO OSB 

TAP00820 

BE 

SPACE 

SBTTPFL 

IF TBS, SET FLAG TO INDICATE SOCH 

TAP00830 

TAP00840 




f t f 


«*•*****«*« 4t***«#t***4i •«*«[* «««««**««* ****«*****«i«****4i****«***4>4t««4t**«4i* 

* « 

♦ ONLY POOR OPTIONS ALLOWED, IF THE OPTIONS • 

* SPECIFIED FAILED THE ABOVE TESTS, THEN ♦ 

♦ WRITE AN ERROR RBSSAGE AND LEAVE. • 

* * 

SPACE 

LH 2,1 USE 2 SINCE GPRi IS BOHBED 

LINEDIT TE)rr = *D(1STPtl001R INVALID OPTION »* 

S[JB=(CHARA, (2) ) ,RBNT»NO,DOT=NO,DI SP=BRRHSG 
15,20 ERROR LEVEL 20 

14 RETORN TO CHS 

2 

8(1), C*0* SEE IF VADDR CHANGE IS IN 

NHRBRIC OB CHARACTER FORHAT 
MVTCH IF CHARACTER, BRANCH 

HOST BE NOHBRTC 

OHS0087A-'4*1 (3) ,8 (1) HOVE IN VADDR 

Dns0087A-4,C'0* INNSBRT ZERO 

DHS0115A-1641 (3),8(1) CHANGE VADDR 

DHS01 15A-16,C«0* INSERT ZERO 

1,16(,1) POINT TO NEXT OPTION 

OPTLOOP CHECK FOR HORE 


HVTPINAD 

* 


LA 

BF 

SPACE 
CL I 


BL 


HVTCH 


HVC 

HVT 

HVC 

HVT 

LA 

B 

SPACE 

HVC 


DHS0087A-4 (4) ,8 (1) CHANGE VADDR FOR TAPE IN 


TAP00850 
TAP00860 
TAP00870 
TAP008S0 
TAP00890 
TAP00900 
TAP00910 
TAP00920 
TAP00930 
♦TAP00940 
TAP00950 
TAP00960 
TAP00970 
TAP00980 
TAP00990 
TAP01000 
TAP01010 
TAP01020 
TAP01030 
TAP01040 
TAP01050 
TAP01060 
TAP01070 
TAPD1080 
TAP01090 
TAP01 100 
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i. 











PILE: TAPnHF ASSERBLB C 


OHIO tIRIVBESITT AflOEICS BII6XBBBEIE6 CBRTBB 


RVTPOIITD 


R7TCHOOT 


NODSBPRC 


SETT PPL 


NODISKTS 


3 HDBEROS 


HVC 

LA 

B 

SPACE 

CLI 

BL 

HVC 

BVI 

LA 

B 

SPACE 

HVC 

LA 

B 

SPACE 

01 

LA 

B 

SPACE 

OT 

LA 

B 

SPACE 

01 

6 

SPACE 


DHS0115A-16 (4) ,8(1) CHARGE VADDR FOR TAPE COHRARD 
1,16(,1) POINT TO RBXT OPTION (IP ART) 

OPTLOOP CHECK FOR HORB 

2 

8(1),C»0* SEE IF RHHBRIC OR CHAR. 

nVTCHOOT IP CHAR., BRANCH DORR 

DHS020 2A-44 1 (3),8(1) CHARGE VADDR 
0HS0202A-4,C*0» INSERT EBRO 

1,16(,1) POINT TO NEXT OPTIOR 

OPTLOOP CHECK FOR ROBE 


ORS0202A-4 (4) 
1, 16(,1) 
OPTLOOP 
2 

FLAGS, 1 

OPTLOOP 

2 

PL AGS, 4 
1 . 8 (, 1 ) 
OPTLOOP 

7 

PL AGS, 2 
OPTCHECK 
2 


,8(1) CHARGE VADDR FOB TAPE ODT 
POINT TO NEXT OPTION (IF ANY) 
CHECK FOR RORB 


SET FLAG 
POINT TO 


SET TAPE 
POINT TO 


SO NO DISK RRITIRG 
NEXT OPTIOR (IF ART) 


FLAG 

NEXT 


OPTION 


SET NO PILBID BIT 


BE6IREX 


LINEDIT TBXT=*DHSTPtT002E INCOHPLBTB FILBID SPECIFIED. *, 
OOT=NO, HENT=NO, DISP*ERRHSG 
LA 15,24 ERROR LEVEL 24 

BR 14 RETORN TO CHS 

SPACE 2 

TR FLAGS, 2 CHECK THE NO-ID BIT 

BNO RDYRON IP SET THEN RODISK BIT HOST BE SET 

TM PL AGS, 1 SEE IF IT IS 

BO RDYRON IF SET, OK 

SPACE 

LINEDIT TBXr='D*ISTPD005E NO FILBID SPECIFIED, OSE RODISK.*, 
OISP=RRHHSG,nOT=NO,BENT=NO 
LA 15,4 ERROR LEVEL 4 

BR 14 RETURN TO CHS 

SPACE 2 

«*«***«4i««i* ******41*41 ******** «**•** *******************4 
* 

A TAPE RECORD IS READ IN AND ANT ERRORS ARE CHECKED. IF 
AN "EOT” IS DETECTED, THE PROGRAH RRITES THE IRFOBHATIORAL 
HESSAGES AND LEAVES, IF A PEREANBNT I/O ERROR IS DETECTED, 


THE BAD RECORD IS SKIPPED OVER AND THE NEXT RECORD IS TRIED. ♦ 
AFTER THE RECORD IS READ IN, THE TDA HASK IS SEARCHED FOR, * 
AND WHEN FOUND, BACKSPACED TO THE FIRST BYTE OF THE GRI. * 
CHECKS ARE HADE TO BE SORE TEN BYTES ARE THERE, IF HOT, THE * 
HISSING BYTES ARE OBTAINED FROH THE PREVIOUS RECORD, OR ADDED* 
TO THE NEXT RECORD. THEN THE TEN BYTES OF DATA ARE CONVERTED* 
TO EBCDIC AND STORED. * 

* 


*********************************************************************** 


TAP01110 
TAP01120 
TAP01130 
TAP01140 
TAP01150 
TAP01160 
TAP01 170 
TAP01180 
TAP01190 
TAP01200 
TAP01210 
TAP01220 
TAP01230 
TAP01240 
TAP012S0 
TAP01260 
TAP01270 
TAP01280 
TAP01290 
TAP01300 
TAP01310 
TAP01320 
TAP01330 
TAP01390 
TAP01350 
TAP01360 
•TAP01370 
TAP01380 
TAP01390 
TAP01900 
TAP01410 
TAP01920 
TAP01430 
TAP01940 
TAP01450 
TAP01460 
♦TAP01470 
TAP01980 
TAP01490 
TAP01500 
TAP01510 
TAP01520 
TAP01530 
TAP01540 
TAP01550 
TAP01S60 
TAP01570 
TAP01580 
TAP01590 
TAP01600 
TAP01610 
TAP01620 
TAP01630 
TAP01640 
TAP01650 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


FILE'.* TAPONF 


OHIO OEIfERSITT AVIOIICS EV6IIEBBIEG CBRTBR 


ASSEMBLE C 



SPACE 

2 


TAP01660 

BOrROE 

SLR 

7,7 

CLEAR GPR7 

TAP01670 


LA 

6, DAPACNFT 

SET TO START OF CO EVERS lOB AREA 

TAP01680 


LA 

8, DSEBP 

lEITIALIZE GPR8 

TAP01690 


LA 

9, TP3DTBF 

INITIALIZE GPR9 

TARO 1700 


LA 

5,TPTEBF 

SET ADDRESS OF START OP TAPE BVFPEB 

TAP01710 

TPRBAD 

POTAPE TPIEBP,BRECLEG READ A RECORD FROE TAPE 

TAP01720 


LTR 

IS, 15 

CHECK THE RETORE CODE 

TAP01730 


BE 

TPCOET 

IP ZERO, START BITE HOVE OPBRATZOE 

TAP01790 


STH 

15,E15RR 

STORE RETORE CODE FOR TESTIEG 

TAP01750 


CT,T 

R15RRf1,2 

SEE IF EOT DETECTED 

TAP01760 


BE 

EOT 

IBS, WRAP OP OPBRATIOE 

TAP01770 


CLI 

E15RR* 1,3 

SEE IF I/O ERROR 

TAP01780 


BE 

TRTA3AIE 

TP EOT, CAE»T COETIEDB 

TAP01790 


LR 

2, 15 

SAVE RETORE CODE 

TAP01800 


LINFOIT TBIT»*DMSTBPO 10E ERROR OB RBADIEG TAPE.*, 

♦TAP01810 



DTSP=ERRNSG, 

DOT*HO,HEET*EO 

TAP01820 


LR 

15,2 

GET RETORE CODE BACK... 

TAP01830 


BR 

19 

...AED RETORE TO CHS 

TAP01890 


SPACE 

2 


TAP01850 

TRTA6AIE 

TAPECTL PSR 

SKIP OVER BAD RECORD 

TAP01860 


AP 

TPEHREBR(2) , 

POME ADD OEE TO ERROR COOET 

TAP01870 


B 

TPRBAD 

TRY TO READ AEOTRBB RECORD 

TAP01880 


SPACE 

7 


TAP01890 

TPCOHT 

LTR 

7,7 

TEST TO SEE IF FILL OE LEFT 

TAP01900 


BE 

MO FILL 

TP ZERO, HO FILL RBQOIBBD 

TAPP -f 910 

PILL 

H7C 

0(1,6) ,0(5» 

MOVE A BYTE TO COEVBRT AREA 

TAP01920 


LA 

6, 1(,6) 

MBIT LOCATIOE IE COEVERT 

TAP01930 


LA 


EBIT LOCATIOE TO BE HOVBD 

TAP01990 


BCTR 

7,0 

ONE LESS TO DO 

TAP01950 


LTR 

7,7 

SEE IP IT IS ZERO 

TAP01960 


BE 

COMVHEB 

IBS, COMPLETE FIELD, SO COEVBRT 

TAP01970 


B 

PILL 

OTHERWISE, DO IT AGAIH 

TAP01980 


SPACE 



TAP01990 

MOPIIL 

LA 

3, 10(,5) 

LOAD TEH LOCATIOMS DOBN... 

TAP02000 


CL 

3,TPBFBED 

...AED SEE IF OHT-OF-BOOEDS 

TAP02010 


BMP 

MOENO 

IF SHALLBR, THEE OK 

TAP02020 


LA 

7, 10 

TEE BYTE COOET 

TAP02030 

DROPHT 

N7C 

0(1,6) ,0(5) 

HOVE IE A BYTE 

TAP02090 


LA 

5, 1(,5) 

IHCRBHBET 5 

TLP02050 


LA 

6, l(,6) 

INCREHBET 6 

TAP02060 


BCTR 

7,0 

DBCRBHBET 7 

TAP02070 


CL 

5,TPBPBMD 

SEE IF AT EDGE YET 

TAP02 080 


BMP 

DR OPR T 

EO, COETIMOE HOVIEG 

TAP02090 


LA 

5, TPINBP 

BACK TO BEGIEHIHG 

TAP02100 


B 

TPRBAD 

READ AEOTHER RECORD 

TAP02110 


SPACE 



TAP02120 

NOEED 

SLR 

3,3 

CLEAR 3 AGAIE 

TAP02130 


IC 

3 , 0 ( , 5 ) 

LOAD IE A BYTE 

TAP02190 


SRL 

3,9 

GET RID OF LOWER POOR BITS 

TAP02150 


CH 

.1, ANASR 

SEE IP TDA HASK IS THERE 

TAP02160 


BE 

PA 

YES, POUED IT 

TAP02170 


LA 

5, 1(,5) 

EO, TRY EBIT BYTE 

TAP02180 


CL 

5,TPBPBND 

AT BED OP RECORD? 

TAP02190 


BP 

TPREAD-9 

YES, GET AEOTHER RECORD 

TAP02200 
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'■ILB: T' 


?k 


COVVRKB 


CVZORB 


ASSEMBLE C OHIO ORIVBRSITT AflOHICS BI6ZHBBRING OBHTBR 


B 

ROBRD*2 

GO TRRODGR LOOP AGAIR 


TAP02210 

SPACE 




TAP02220 

SL 

5,P4 

POTRT TO GRI FIELD 


TAPD2230 

nvc 

0(10,6), 0(5) 

HOVE THE FIELD TO CORVBRT AREA 


TAP022RD 

LA 

6,DATACRET^10 

DO THIS FOR TEST LATER OR 


TAP02250 

LA 

5,10(,5) 

REIT FIELD TO BE HOPED 


TAP02260 

SPACE 

2 



TAP02270 





TAP02280 




• 

TAP02290 

C0MVERSI01I IS BORE 

ORE BYTE AT A TIRE. THE BITES 

• 

TAP02900 

ARE CHBCRBD TO BE SHRE THEY ARE IR THE RAR6B OP 

* 

TAPD2310 

ZERO THR003H RISE, 

INCLOSIPE. IF THEY ARE HOT, THE 

• 

TAP02320 

BRTIRE DATA RECIRD 

IS REJECTED. 

• 

TAP02330 




• 

TAP02340 

■ •4>***l 




TAP023S0 

SPACE 

2 



TAP02360 

CL 

6,nAPACR?B 

AT EHD OF CORVBRT BUFFER 


TAP02370 

BRE 

BADRBCRD 

IF ROT, BAD RECORD DETECTED 


TAP02380 

LA 

6, DATACR7T 

POIHT TO BE6IRRIRG 


TAP02 390 

IC 

3,4(,6) 

TEST FOR TDA HASH 


TAP02R00 

SRL 

3,4 

STRIP OFF LOWER BITS 


TAP02W10 

CM 

3, AHASE 

IS "A"? 


TAP02A20 

BRE 

BADRBCRD 

NO, ERROR 


TAP02R30 

IC 

3,7(,6) 

TEST FOR TDB HASK 


TAP02A40 

SRT 

3,4 

STRIP OFF LOWER BITS 


TAP02450 

CH 

3, BHASK 

TS "B"7 


TAP02460 

BRE 

BAORECRD 

NO, ERROR 


TAP02470 

RI 

4(6), I»0P» 

STRIP OFF TDA HASH 


TAP02480 

RT 

7 (6), I* OP* 

STRIP OFF TDB HASK 


TAP02490 

S»ACE 




TAP02S00 

LA 

10,COR7BRT 

START AT BBGIRRIRG 


TAP02510 

IC 

3,0(,6) 

GET A BYTE 


TAP02520 

SRL 

3,4 

SHIFT OFF LOWER POOR BITS 


TAP02530 

CH 

3, HO 

SEE IF RDHBBR LESS THAR "0" 


TAP02540 

BPf 

BADRECRO 

IF TBS, REJECT RECORD 


TAP02550 

CH 

3,H9 

SEE IF RHHBBR GREATER THAR "9" 


TAP02560 

BH 

BADRECRD 

IF YES, REJECT RECORD 


TAP02570 

0 

3,ZOREHA5K 

ADD THE ZORE MASK 


TAP02580 

STC 

3,0{, 10) 

ARD PLACE IH CORVBRT BHFFER 


TAP02590 

LA 

10,1(,10) 

REIT BYTE IR BDPFBR 


TAP02600 

IC 

3,0(,6) 

GET THE SAHE CHARACTER 


TAP02610 

R 

3,STRIP04 

STRIP OFF THE UPPER FOUR BITS 


TAP02620 

CH 

3, HO 

CHECK IF VALID 


TAP02630 

BH 

BADRECRD 

REJECT RECORD IF ROT 


TAP02640 

CH 

3, H9 

CHECK IF VALID 


TAP02850 

BH 

BADRBCRD 

REJECT IF ROT 


TAP02660 

0 

3, ZOREHASK 

ADD THE ZORE HASK 


TAP02670 

STC 

3,0(, 10) 

STORE IR BUFFER 


TAP02680 

LA 

10,1(,10) 

REIT BYTE 


TAP02690 

LA 

6, 1(,6) 

REIT BYTE TO BE DONE 


TAP02 700 

CL 

6,DATACR7B 

SEE IF DONE 


TAP02710 

BRP 

CVZORB 

NO, CORTIRUE THIS LOOP 


TAP02720 

LA 

6, DATACRVT 

LOAD GPR6 


TAP02730 

SPACE 




TAP 02 740 

TH 

DATACRVT,X'PP 

* CHECK IF FIRST RUHBER IS ZERO 


TAP02750 






^XLE: T)^PaiMP \nSBMBLB 2 


OHIO OIlIfBRSITT ATIOIICS BMGZNBBBIIfG CBfTBB 



BZ 

SBEBSK 

TP ZBBO, HO EVERT ENTERED 


TAP02760 


PSHRITB PSCB=BVHTCTL 

POT EVENT ON DISK 


TAP02770 


LTR 

15,15 

CHECK THE RETORN CODE 


TAP02780 


BZ 

HOPILL 

IF ZERO, DO REIT RECORD 


TAP02790 


SPACE 




TAP02800 


LR 

2, 15 

SAVE RETORN CODE 


TAP02810 


LIHBBTT TBJtr»*DBSTP(f021B BRBOB OH HRITIHG TO • 'LOBAR BVBHTS 

C1VTAP02820 



• • »,BISP=ERHHSG,DOT*HO,RBBT»HO 


TAP02830 


LR 

15,2 

GET RETORN CODE BACK 


TAP028H0 


BR 

14 

AND RETORN TO CHS 


TAP02850 


SPACE 

2 



TAP02860 

TAP02870 

TAP02880 


TEE HRITIHG TO DISK 

ARD/OB TAPE IS DONE HEBE. THE 


TAP02890 


PORE ATS TTSBD ARE POR 

DISK: RECFH * P, IBECL » 80, 


TAP02900 


BLKSIZB = RO. POR TAPE: RECPH » 0, BLKSIZE = 800. 


TAP02910 






TAP02920 



t*tc**tt******»** 



TAP02930 


SPACE 

2 



TAP02940 

SEEDSR 

TH 

FLAGS, 1 

SEE IF HRITIHG TO DISK 


TAP02950 


BO 

SBBTP 

IP HOT, CHECK POR TAPE 


TAP02960 


H7C 

0(20,8) ,CDHVBRT HOPE THE HOHBBR TO DISK BOFPBB 


TAP02970 


LA 

8,20(,8) 

REIT FIELD AREA 


TAP02980 


CL 

9, DSKBFSHD 

CHECK IF BOPFBB IS POLL 


TAP02990 


BL 

SEBTP 

IP HOT, GO OH 


TAP03000 


LA 

8, DSKBP 

RE- INITIALIZE GPR8 


TAP03010 


PSHRITE PSCB = DISKHAHB HBITE TO BISK 


TAP03020 


LTR 

15,15 

CHECK RETORN CODE 


TAP03030 


BZ 

SEBTP 

IP ZERO, GO ON 


TAP03040 


SPACE 




TAP03 050 


LR 

2, 15 

SAVE RETORN CODE 


TAP03060 


LINEDIT TEXT = »DESTP0020E ERROR OH HRITIHG TO " 


♦TAP03070 



.. '",5(16= rCHARA,OISKRABE»8,CRABA,DISKHAnB^16,CRARA,OISK*TAP03 080 



HAHB*24) ,DTSP= 

ERHHSG, DOT*HO, RENT* HO 


TAP03090 


LR 

15,2 

GET RBTORH CODE BACK 


TAP03100 


BR 

14 

RBTBRH TO CHS 


TAP03110 


SPACE 

2 



TAP03120 

SBBTP 

TH 

PL AGS, 4 

CHECK IP TAPE BEING USED 


TAP03130 


BZ 

NOFILL 



TAP03140 


H7C 

0(20,9) , CONVERT HOVE DIGITS TO TAPE BOPPBR 


TAP03150 


LA 

9,20(,9) 

POINT TO NEXT FIELD 


TAP03160 


CL 

9, TPODTBHD 

SEE IF BOFPBR POLL 


TAP03170 


BHH 

NOPTLL 

IP HOT, PROCESS ANOTHER FIELD 


TAP03180 


LA 

9, TPOOTBF 

POINT BACK TO BBGINHIHG 


TAP03190 


HRTAPP (9), 800, 182 

DflHP BOPPER TO TAPE 


TAP03200 


LTR 

15,15 

CHECK BETORH CODE FROH DO HP 


TAP03210 


BZ 

NO FILL 

IP ZERO, PROCESS ANOTHER RECORD 


TAP03220 


LR 

2, 15 

SAVE RETORN CODE 


TAP03230 


SPiVCB 

LTMBDIT TBIT=*DBSTPn022B B8ROR OH HRITIHG TO TAPB. 
OrSP=RRRH5G,DOT=NO,RBHT»HO 


SPACE 

La 

BR 

SPACE 


15,2 

14 

.1 


GET RBTtJHH CODE BACK 
GO TO CBS 


TAP03240 

•TAP03250 

TAP03260 

TAP03270 

TAP03280 

TAP03290 

TAP03300 


- 20 - 


1 ' 


BBBS 


"ItE: T&POMP 


USSEBBtB 


OHIO ORIVBBSITT BfXOKCS BM0ZIBBBIV6 CBBTBI 


BBDBBCRD LX 
XP 
B 


6,DXrXCII7T POIRT TO BB6ZBIIR6 OF CORfBlT 

BeCBRROR(2) ,pa*fB ADD ORB TO ERROR COORT 
ROFZLL TRY RBZT fZBLD 

SPACE 2 


THE PROI3RAN CORES HERB AFTER RBADZR6 A FILE HARR 
ON THE TAPE. THE COURTS FOR TAPE RBCORDS SKIPPED 
AN!) DATA RECORDS REJECTED ABB ORPACKED ARD DISPLAYED 
ON THE TBRRINAL. THEN, CONTROL IS RETORRED TO CHS. 


TAP03310 

TAP03320 

TAP03330 

TAP033R0 

TAP033SO 

TAP03360 

TAP03370 

TAP03380 

TAP03390 

TAP03B00 

TAP03B10 

TAP03B20 



SPACE 

2 


TAP03430 1 

EOT 

OMPE 

HSGU23(3UTPERRRBR(2) CHARGE TO EBCDIC 

TAP03440 


01 

nSGU25,Z*F0» 

REHOFB SIGN 

TAP03450 


UNPR 

nSG2«^23 (3) ,BBCERR0Bf2) CHANGE TO EBCDIC 

TAP03460 


01 

HSG2^25,Z»F0* 

REHOfE SIGN 

TAP0347D 


RRTERH » • 

CARRIAGE RETURN 

TAP034l^0 I 


RAITT 



TAP03490 It 


WRTBRH HSG1,26 


TAP03500 i! 


RAITT 



TAP03510 1 1 


RRTBRH HSG2,26 


TAP03S20 1 : 


RAITT 



TAP03530 ^ 


SLR 

15,15 

ZERO RBTORR CODE 

TAP03S40 


BR 

14 

BACK TO CHS 

TAP03550 1 


EJECT 



TAP03S60 


DS 

OD 


TAP03570 • 

OPTIR 

DC 

CL8»IN* 


TAP03580 1 

OPTOOT 

DC 

CL8»0UT» 


TAP03590 

OPTRDSR 

DC 

CL8»N0DI5K» 


TAP03600 

OPTTAPB 

DC 

CL8»TAPE* 


TAP03610 

F4 

DC 

F»4» 


TAP03620 

EORERASK 

DC 

H*0»,Z»00F0* 


TAP03630 

STBIP04 

DC 

H* 0»,Z*000F* 


TAP03640 

DATACRfE 

DC 

AL4(DATACNVTf10> 

TAP03850 

TPBFBRD 

DC 

AL4(TPINBP*SRBCLRG) 

TAP03660 

nSKBPBRO 

DC 

AL4CDSKBF*80) 


TAP03670 

TPOOTERD 

DC 

AL4CTPOnTBF»8DO) 

TAP03680 

niSKBAHB 

FSCB 

• »,RBCFH 

= F,BTJFFBR*DSKBF,BSIZB«80 

TAP03690 

B FRTCTL 

FSCB 

•LORAS BYBRTS 

Cl* ,RBCFHsF, BUFFERS COHYEET,BSIZB* 20 

TAP03700 

B15RR 

DS 

H 


TAP03710 

HO 

DC 

H' D* 


TAP03720 

H9 

DC 

H»9» 


TAP03730 

ASASK 

DC 

I'OODA* 


TAP03740 

BHASR 

DC 

X»DOOB« 


TAP03750 

FLAGS 

DC 

X»00* 


TAP03760 

CORYERT 

DS 

21 X 


TAP03770 

TPIRBF 

DS 

RRECLNG.X 


TAP03780 

TPOOTBF 

DS 

80 OX 

PAGE IS 

TAP03790 

t)SKBF 

DS 

BOX 

OF POOR QUAUrr 

TAP03800 

DATACRYT 

DC 

IOC* • 

TAP03810 


DS 

lOX 


TAP03820 

TPBRBNBR 

DC 

PI.2»0* 


TAP03830 

r^ECERROR 

DC 

PL2'3* 


TAP03840 

PORE 

DC 

P* 1* 


TAP03850 
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PILB: T^paN? ASfJRNBLE C 


OHIO 0RT7BRSXTT A?10IIZCS SH6XHBBRIR6 CBRTBI 


NSG1 

DC 

C»TAPE 

RECORDS 

REJECTED: 

t 

TAP03860 

nss2 

DC 

C'DATA 

RECORDS 

REJECTED: 

t 

TAP03870 


END 

TAPOlIf 




TAP03880 


I 

II 


.1 
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APPBlfDlK II Listing for tb« Sapscvisor prograi. 
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filf:: lrncms pnsTRfi^.i 


onn U*'I Vr.PRITY AVIONIC;^ FMOINFFRI*’'? CFNTFP 


TOS(?)tPaS(?)fIPOS(?> *FPO?. C? > #APOS(?> f"1P0$'<P ) tSPOS'C 2) •OR'-RN: '^'lU 

I RM0002C 


1^ 


n 


lA 


110 


21 


nr-Tf^srof^ 

:po^< 2) 

REAL*8 RLAT ,RLCNr,, PI 
CO*''^0^/RMGPOS/RLATtRLON.. 

DATA Pr/3.1'U'SO?6^>‘i3tRP79/ 

Tnc=o.o 

GKIt=0.0 

READ 3« IDEGtMiNtRCC*! JEGl * Urn .GECl 
DRPOSn )=IDrG*( vin+REC'GO. »/6C. 

D R P 0 S ( ? ) = I D e 6 1 ♦ ( I M 1 ♦ S "=■ C I / Cl . ) / 6 0 . 

read 2, loops 

READ ItCRR 

READ 3*IDEG,MIfJtSFC,r)F:51fMIM,SECl 
RLAT = < IDEG^( VIf^*SFC/6 0.)/6 0.)*PI/18n, 
RLON6=nDEGl'M'^INl*SECt/6.C.)/60.)*PT/l'=0, 

PRINT G,DRPOS*lOOPS,cRR*IDrO*MIN*SEC tl^EGl tMINl f SECl 
PRINT 8 


111 

10 0 
1 
2 
3 

r-, 


CALL DWREAD(GRI,TDS) 

IF(6RI.EQ.0.)G0TO ICo 
ICOUNT'* 

GOTO U 

00 13 1=1, LOOPS 
CALL DRREAD(GPI ,TDS) 
iF(GRi,F:a.n.o)'-oTo uo 
CONTINUE 
ICOUNT=lCOUNT+I 

grii=gri-gri$ 

GRISrGRI 

TIME = TI VE + GS II *CPR/3L Cn .0 
CALL TDPOS(TCS,POS,DR3 0S,KR»0P > 

IF( IERROR)lll ,110,1U 
DO 21 1=1,2 
DRFOS ( I )=POS( I > 

IPOSi( I )=P03( I ) 

FpuS'(i)=POS(i)-iros(i) 

APQS'CI )=FPOS< I >*GQ .0 
MPUS (I )=APQP (I ) 

SP OS ( I > ='( AP OS ( I ) ,-NP OS ( I ) ) 0 . 0 

IHR=TIME 

XHIN = <TIrlE-IHR)+f 0.0 
MINrXMK. 

SCS= (>'MTN-'<IN)*P.P. .0 
CALL RNGA2(P0S,PH0,AZr^.) 

PRINT ‘5,ICOUNT,Tns, ( I ’0S< n , MPOS ( I ) , SP OS'< 
>N,SCS 

NRITE( 1 1,6)PH0,A7IN 

GOTO 10 

PRIfsIT 7,T0S 

GOTO 10 

STOP 

FORMATCFIO.O) 

FORMAT ( H) 

FORMAT(I4,lX,12,lX,Fb.2) 
F0R’'’ATMX,I5,3X,2(R7.1,8X)*2(I4,1X,I? 
>1X>,F4.1) 


I.RN? 0 030 
l.RNO OOAO 
LRN00050 
LPN0D'‘60 
LRNO0070 
I.BNOOORO 
LRNO OC90 
l.oNOOlOO 
' PNOCllO 

1.. PN00120 
I RN00130 
I.pnOO lAO 
LRN00150 
LPN0C160 
LRN«0170 
IRNO310O 
L PNC 01 90 
LRN'^ 02 00 
LRN00210 
I. PN"'0 2P0 
LRNOr230 
f. RN002A0 
L'’N00250 
I. PN00260 
I.PN00270 
LRNOOPPO 
' RND0290 
I, PNO ^300 
I RN00310 
LPN00320 
LPN0C330 
1. RN0 0 340 
I.PN00350 
LRN00360 
LPN00370 
I.RN '■'0 3 80 
LRNn0390 
I.RNOOAOO 
L P N 0 0 A 1 0 

1.. PNOOA20 
L»NOOA30 

) ,1 = 1 ,2) .RHO, AZIH,IHR ,MILRNOOA40 

p N 0 0 5 0 
LPNOoAfeO 
L R N n 0 A 7 0 
'.PNOOA80 
LRNO0A90 
L P N D 0 5 0 0 
LPN00510 
L 0 N 0 3 5 2 0 
'.p\'rnG30 

, !X,P5.2,8y ) ,2 (F8 .A,8X ) ,2U2,LPN0 05A0 

I . >5 N 0 0 G 5 0 
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file: lr'.cm*: 


FO'JTRAN C 


OHIO UHIVEFSITY AVIONICS ENGINEERIHO CENTE® 


''■« PO»'« AT ( ^(FF.4) ) I 

7 FOPMAT(»n TPA = #HK**TDB = • t ^ 7 , 1 , T7 .1 , 1 5 ( • * * ) » * SOLUTION CAI.RN'’0H70 

;NN0T °E OBTfllN^n. LRNOOBRO 

FORHAT ( jril * * CCUNT'tT I B**TH At ,T3C * •,T'+7, •LATITUDE' • T 68 1 • LONG I T L R N '1 0590 

>tmF# ,TA7,tRflr>jGrt ,tU 3*»AZI ■njTH»«T12'^ • • T I ME * / 1 X » T A7 , • DO 5S* *T6R * L RN 0 09 0 0 

>»D0 MM SS*fT87»*N.MIL"S»»TlC:***DEGRr'^f;**T119»»HH MM SS»/> t.RNrOGlO 

9 FOR^'ATCl PARAMETERS FOP LORAN DATA OEDUCTIOM PR P^’R A M . • // •ODE A D I.RN00920 
>PECKONED latitude; •♦F9.A/» DEAD RE''‘''0'iED LONGITUDE.* »tF8.A//* DATLRN00630 
>A TAKEN EVERY ••IA*» =OINTS.t//t CHAIN RATE: •»FS.A//* REFERENCE LLRN'’''9A0 
>ATITUDE; •*15*1X,I?,1X,F5.?/'» REFEREA'Cf longitude: **I A,lX,r2tlXfFLTN00650 
>5.2) l'JN00660 

F,\n '.RN'^ 0670 
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APPBifDIK III Listing for sabprogras DBIBAD. 
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P’^LE; DBPRAn 


FORTRAN C 


OHIO onivbrsttt avionics engineertno center 


SITBROrTTINB OBB EAn(GBI,TDS) 

DIHENSrOM rns(2) ,IBfTP(4, 1) ,TDOLD(2) ,TDOF(2) 

DATA TPASS/a/,TDOI,D/0. ,0./, ICAtL/0/,TDOE/-2. , 17./ 
NERB*0 

7 IP (IPASS.NF.4) ROTO 2 

FBAD(10,40,ENO=5) ((TBOPfl, J) ,1=1,4) 

IPASS=0 

2 IPASS=rpASR^1 
GRT«TBnP(iPASS, 1) 

IP(GRT. EQ.O.) GRI=1. 

DO 11 r=1,2 

11 TDS(I) =IBHF (IPASS,I*1) ♦TDOP(I) 

IP (ir\Ll) 9, 10,9 

10 ICALL=1 

DO 12 1=1,2 

12 TDOLD (I)=TDS (T) 

9 IF (ABS(TDOLD(1) -TDS (1) ) 

DO 8 T=1,2 

8 TDOLD (I) =TDS (I) 

HETBRN 

5 RRI=0.0 
DO 6 T=1,2 

6 TDS(T) =0.0 
RETURN 

13 HRRR=NPRRfl 
TP (NER8 .lt. 10) G0T07 
N!RR=0 
ICALL=0 
GOTO 7 

40 FORnAT(4(r0,T6,I6)) 

END 


GT. 5. . OR. ABS (TDOLD (2) -TDS (2) ) 


DBR00010 
DBR00020 
DBR00030 
DBR00040 
DBR00050 
DBR00060 
DBR00070 
DBR00080 
DBR00090 
DBR00100 
DBR00110 
DBR00120 
DBR00130 
DBR00140 
DBR00150 
DBR00160 
>GT.5.)60T013DBR00170 
DBROO T80 
DBR00190 
DBR00200 
DBROO 210 
DBR00220 
DBROO 230 
DBROO 240 
DBR00250 
DBROO 260 
DBR00270 
DBR00280 
DBR00290 
DBROO 300 
DBROO 310 
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■ 



o rj r> n O O 


FORTRAN C 


OHIO nNI?BRSITY AflORICS BNGIRBBRIR6 CBRTBR 


Pi:.R: TDPOS 


c - 


c - 


SrTBROnriNE TDPOS (TH,?OS,DRPOS,IBRROH) 

DlflBNSrON T0S7(2),2SV(2),AMr;(8),»D(8) tDB(8),CS(8» ,POS (2) ,ZIVD(2) 
S»H(2) ,DBLf2) ,TDR{2» ,DRD{2) , DR8(2) ,TH(2) » A ( 11) , B f 11), C ( 1 1), D( H ) » 
r11) »^r*(11) ,TM(2) ,DLBH(2) ,DBDBL(2),RADR(2) ,BBTA(2),0HS (2),IBD(2), 
:RD(2) ,DRP05? (2) 

DATA A 1/24. 0305/, A2/-0. 40758/, A3/3. 46776B- 3/,B 1 /O. 5 10483/,B2/-0. 
1 1402/, B 3/0. 001760/,RD/1.745 329B-2/,RH/2.908882B-4/,RS/4.848137B- 
:,PI/3. 141592/, A4/2. 99691 2R2/ 

COf!HON/CHAIND/DBL,A5, A6, A0,Dil,CS 

- BEGIN TINE DIFPEREMCE TO POSITION CONVERSION. 

DO 1 T=1,2 
IDRD (I) =DRP0SCT) 

DRD(I) =IDRD (I) 

1 DRn(I) = (DRPOS(r)-DRD(I) ) *60.0 
IBRROR=1 

A 10= (A5*A5-A6*\6) /(A5*A5) 

A14=1.0-A6/A5 

A50= (1. 0«-A1 4*A14*A14) 

A51= (A50-1. 0) 

A52= (A14*A14) /2.0 
A53=-A51/2. 0 
A54= (A14*A14)/16.0 
A55= (A14*A14) /8.0 
A56=A14*A14 
A57=A56*1.25 
A50=A56/4.O 
DO 128 K=1,8 
IF(AD(E)) 124,126,126 
124 ANG(K) =RD*AD(K) -RN*DM(K) -RS^CSfK) 

GO TO 128 

126 ANG(K) = RD*ADfR:) ♦RM*D1 (K) ♦RS*CS(K) 

128 CONTINOB 

A12= (ANG (1) -ANG (5) ♦ ANG(2) -ANG(6) ) 

A12=ABS (A12) 

IP(Al2-0. 00001) 7,7,8 

7 A11=-1. 0 
GO TO 9 

8 A11=1.0 

- APPROXINATE POSITIONS AND STATION COORDINATES. 

9 E(1)=ANG(1) 

E(2) = ANG(2) 

CC (1) =ANG (3) 

CC (2)=ANGf4) 

B(3) =SIN(E(1)) 

B(4) =COS(E{ 1) ) 

E(5)=K(3)/E(4) 

E(8) = (E (5) ) ♦(1.0-A14) 

A62=ATAK(Rf8) ) 

E(6) =SIN(A6 2) 


TDP00010 
,PTDP00020 
B(TOP00030 
IDTDP00040 
TDP0 0 050 
TDP00060 
01TDP00070 
6/TDP00080 
TDP00090 
TDP00100 
TOP00110 
TDP00120 
TDP00130 
TDPOO 140 
TDP00150 
TDPOO 160 
TDPOO 170 
TDPOO 180 
TDPOO 190 
TDPOO 200 
TDP00210 
TDP00220 
TDPOO 230 
TDP00240 
TDPOO 250 
TDPOO 260 
TDPOO 270 
TDP00280 
TDP00290 
TDPOO 300 
TDP00310 
TDPOO 320 
TDPOO 330 
TDPOO 340 
TDP00350 
TDPOO 360 
TDPOO 370 
TDP00380 
TDPOO 390 
TDP00400 
TDP00410 
TDPOO 420 
TDP00430 
TDP00440 
TDP00450 
TDPOO 460 
TDP00470 
TDP00480 
TDP00490 
TDPOO 500 
TDP00510 
TDPOO 520 
TDPOO 530 
TDP00540 
TDP00550 
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".B; 

TDPOS iPORTRAN C 

OHIO TTBIVBBSITT ATZOBICS BRRZBBeSIirG CBRTBR 


B(7) »C0S(A6 2) 

TDP00560 


CC (.1) =SI» (CC(1) ) 

TDP00570 


CC (4) =COS (CC(1) ) 

TDP00 580 


CC(5> =CC(3) /CC(4) 

TDP00590 


CC (8) = (CC(5))*(1.0-M4) 

TDP00600 


A62»ATAB(CC (8) ) 

TDP00610 


CC (6) =SIM(A62) 

TDP00620 


CC (7) =COS(A62» 

TDP00630 


1*1 

TDP00640 


RO TO 5 00 

TDP00650 

15 

B(9) =A3 5 

TDP00660 


B(10) *A46 

TDP00670 


B (11) =A47 

TDP00680 


DO 17 J = 1,11 

TDP00690 


A{J)=B(J) 

TDP00700 

17 

B(J) *CC (J) 

TDP00710 


B(1)=AMG(5) 

TDP00720 


E(2) =AMG (6) 

TDP00730 


CC(1) *ANG(7) 

TDP00740 


CC(2) =ANG(8) 

TDP00750 


B(3)=SIHfF(1)) 

TDP00760 


B(4) =C0S(F( 1) ) 

TDP00770 


B(5)*E(3) /F (4) 

TDP00780 


B(8) = (B (5) ) ♦() .0-,;i 4) 

TDP00790 


A6 2=ATAN(B(8) ) 

TDP00800 


B(6) =SIN(A62) 

TDP00810 


B(7) =COS(A6 2) 

TDP00820 


CC(3)=SIN(CC{1)) 

TDP00830 


CC (4) =COS(CC(1) ) 

TDP00840 


CC (5) =CC{3) /CC(4) 

TDP00850 


CC (8) =(CC(5))*(1.0-A14) 

TDP00860 


A62=ATAN(CC (8) ) 

TDP00870 


CC (6) =SIN(A62) 

TDP00880 


CC (7) =COS (A62) 

TDP00890 


1*2 

TDP00900 


GO TO 500 

TDP00910 

19 

B(9)=A35 

TDP00920 


B(10) =A46 

TDP00930 


Bfll) =A47 

TDP00940 


DO 21 1=1,11 

TDP00950 


C(J)=B(J) 

TDP00960 

21 

D(J)=CC (J) 

TDP00970 


TH(1)=A (10) ♦A(ll) 

TDP00980 


TB (2) =0 (10) *C{ 1 1) 

TDP00990 


DO 45 1=1,2 

TDP01000 


BETA (1) =T« (1) 

TDP01010 


BBDBL (1) =BBTA (B) ♦DBL (B) 

TDP01020 

45 

BLEB (1) =3ETA(B) ♦BBDEL(M) 

TDP01030 


IQSV (1) =99999 

TDP01040 


TQSV(2) =99999 

TDP01050 


rTBR=0 

TDP01060 

82 

SDH=DRD (1) f DR1 (1) fDRD(2) «-DRB (2) 

TDP01070 


IP (SDR) 83,84,83 

TDP01080 

83 

DO 30 B = 1,2 

TDP01090 


TP(DR0(K)) 32,34,34 

TDP01 100 
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Tr>po*; 


FDRTRAN C 


OHIO (JHI7EHSITT AVIORICS BNGIHBBSIRG CBHTBB 


PTV.B; 


3 ^ 

RADR (F) =RD*DRD (fC) -RH*DRH (R) 

TDP01 110 


GO TO 30 

TDP01120 

34 

RAnR(R) =R1)*0RD (K) ♦RH*DRH(R) 

TDP01 130 

30 

CORTTNl B 

TDP01140 


B(1) =RADR(1) 

TDP01 150 


B(2)=RADR(2) 

TDP01 160 


A 2 8®— 1 « 0 

TDP01170 

94 

B(3) =STN(Rn)) 

TDPO 1 180 


E(4)=COS(F(1)) 

TDP01 190 


B(5)=5( 3) /P (4) 

TDPO 1200 


F(8)= (B (5) ) ♦(1.0-A14) 

TDP0 1210 


A62*ATA V(E(8 ) ) 

TDP01220 


B(6) =SIN (A6 2) 

TDP01230 


B<7)=COS (A6 2) 

TDPO 1240 


DO 86 J = 1,8 

TDP0 1250 

86 

CC (J)=D (J) 

TDP0 1260 


1=3 

TDPO 1270 


60 TO 500 

TDPO 1 280 

90 

C1=A35 

TDPO 1290 


C2=A44 

TDPO 1 300 


C3=A45 

TDP0 1310 


C101= A47 

TDP01 320 


DO 92 .1=1,8 

TDPO 1330 

92 

CC(J) =r (J) 

TDPO 1 340 


1=4 

TDP01 350 


GO TO 500 

TDPO 1 360 

95 

C4=A.35 

TDP0 1370 


C5=A44 

TDP01380 


C6=A45 

TDPO 1 390 


C104=A4 7 

TDP01400 


DO 50 1=1,8 

TDP01410 

50 

CC (J) =0 (J) 

TDPO 1420 


1=5 

TDPO 1430 


GO TO 5 00 

TDPO 1440 

55 

C7=A35 

TDPO 1450 


C8=A44 

TDPO 1460 


C9=A45 

TDPO 1 470 


C107=A4 7 

TDP01480 


IP(A1 1) 52,99,53 

TDPO 1490 

53 

C10=C7 

TDPO 1500 


Cl 1=CP 

TDP01510 


C12=C9 

TDP0 1520 


Cl 10=C1 07 

TDPO 1530 


DO 63 J = 1,8 

TDP01540 

63 

CC(J) =A (.1) 

TDPO 1550 


1=6 

TDPO 1560 


GO TO 500 

TDP0 1570 

65 

C7=A35 

TDPO 1580 


C8=A44 

TDP0 1590 


C9=A45 

TDP0 1600 


C107=A47 

TDP01610 


C13=TH (2)-C (10) -C(1 1) -C10UC104-DBL(2) 

TDPO 1620 


C17=C13*A4 

TDPO 1630 


C18=TH( 1) - A (10) - A(1 1) -Cl 10*C107-DBL (1) 

TDP01 640 


C22=C18*A4 

TDPO 1650 
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. JliBpliyilM' ■ • • - r-un-i: -rm nnm nmi T.-nrin. i J - 

'-'i -f 


non o n o 




FORTRAN C 


OHIO nNIVERSITT AVIORICS BRGIIlBBRItlG CBRTBR 


POS 


C2 3»C1-C17 
C2«=C4 
C25=C7fC22 
C26»C13 

C27a ( (C2-C5) *(025-026) ♦ (02 3-C24) • (C 11-08) ) 

029* ( (0 2-05) *(0 12-09) ♦ (03-06) * (08-011) ) 

030*027/029 

028* (02 3-024*030* (03-06) ) /(05-02) 

GO TO 1 30 

52 013*TB(2)-0(13) -0 (1 1) -C10U0104-DBI (2) 

017=01 3 *A4 

018=TH(1)-A (10) - A (11) -Ol07*Ol04-DBt (1) 

022=018*A4 
02 3*01-017 
024=04 
025=07-022 

027= (02* (025-024) *023* (05-08) *08*024-05*025) 

029= (02*(06-0P) *03* (08-05) *05*09-08*06) 

030*027/0 29 

028= (02 3-024*0 30* (0 3-06) ) / (05-02) 

130 031= (A5*A4* (1. 0-A10) ) /( 1.0-A10*B (3) *B(3)) **1.5 
032= (A5*A4)/(1.0-A10*E(3)*B(3)) **0.5 
033= (030/03 1) 

034= (-C28/(032*E(4) ) ) 

B(1) =E( 1) *033 
B(2) =P( 2) *034 
IP(A28) 132, 99, 1 34 
132 128=1.0 
GO TO 84 

- OORVBRSION DONE, RETURN TO DISTANCE- BEARING ROUTINE. 


900 IF (TQSV (1) . NR. iwn(1) ) GO TO 7713 
IF (IQS7 (2) . NR. IWD(2) ) GO TO 7713 
IP(ABS(QSV(1)-PWN(D) ,GT.0.1)GO TO 7713 
IP(ABS(QSV(2) -PWN(2)) .GT.O. 1)G0 TO 7713 
IDR(1)=IDR(1)*10 
DO 839 1=1, 2 
ZIRD (I) *TWD (I) 

839 P0S(I)=2TWD(I) ♦?»«(!) /60.0 
RFTURN 


CONTINUE ITERATIONS. 


7713 DO 7712 11=1 ,2 
DRD(N) =0.0 
DRHri) =0.0 
QSV('I) =PWN([1) 

7712 IQSV (M) =TWD (N) 
ITER=TrBR*1 

IP (ITER. LT. 100) GO TO 82 

IERR0R=-1 

RETURN 

134 0«G(1)=E(1) 

0NG(2) = E(2) 
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TDP01660 

TDP01670 

TDP01680 

TDP01690 

TOP01700 

TDP01710 

TDP01720 

TDP01730 

TOP01740 

TDP01750 

TDP01760 

TOP01770 

TDP01780 

TDP01790 

TDP01800 

TDP01810 

TDP01820 

TOP01830 

TDP01840 

TDP01850 

TDP01860 

TDP01870 

TDP01880 

TDP01890 

TDP01900 

TDP01910 

TDP01920 

TDP01930 ] 

TDP01940 

TDP01950 

TDP01960 

TDP01970 

TDP01980 

TDP01990 I 

TDP02000 

TDP02010 i 

TDP02020 

TOP02030 i 

TDP02040 ] 

TDP02050 1 

TDP02060 

TDP02070 

TDP02080 i 

TDP02090 ^ 

TDP02100 i 

TDP02110 

TDP02120 

TOP02130 

TDP02140 

TDP02150 

TDP02160 

TDP02170 

TDP02180 

TDP02190 

TDP02200 







O CJ o 




•fnpos 


POBTRAN C 


OaXO 0MI7BRSIT7 AflOlICS BIGIIBBRiaG CBBTBB 


DO 4840 11*1, 2 
W«OHS (1) /RD 
IBD(R)*W 
Ft D»IBD (H) 

DWD-B-PWD 
BHa»DBD*60. 0 
FBH(f1) = ABS (BBH) 

IF <FWW(H) -5 4. 9495) 4840, 401 0,48 10 
4810 FaH(8)*0.0 

IF (IWD (R) ) 4820, 4830,4830 
4020 I»D(P1)=TWD(H)-1 
GO TO 4840 
4830 IWDt8)*IHD(?1)fr1 
4040 COBTINOB 
GO TO 900 


- CALCOL4TIOM OP IVVBRSP VARIABIBS. 


500 A59*-CC(2) 

A60*-E(2) 

C35SA54-A60 
C36*AB5 (C35) 

IF (C36- PI) 501, 502,502 
502 A16=2.0*PI-C36 
GO TO 505 

501 A16*C36 

505 IP(A16) 506,507,506 
507 A16*0. 00000005 

506 A17*ST!« (A16) 

A18=C05 (A16) 
A19*f?(6)*CC (6) 

A20=P (7)*CC (7) 
A21=A14+A20*A18 







i 


A22= ( (A 17*CC(7) ) **2*{CC (6) *B (7) -B(6) ♦CC(7) 4A18) **2) **0. 5 

A23»(A20*A17) /A22 

A24»1.0-A23*A23 


A25=ARSTN (A 22) 

A26»A25PA25 

A27=1.0/A22 

A28=A21/A22 

A29=A24*A24 


A 30* (A5 0*A2 5) f A19*( A51*A22-A52*A264A27) 

A3 1=A24* (A5 3*A 25*A53*A22*A2 1 ♦A52*A26*A28) 
A32=A19*A19*(-A52*A21*A22) 

A33=A29*{A54*A25tA54*A21*A22-A52*I264A28-A554A22*fA214*3)) 

A34*A19*A24P{A52*A26*A27»A52PA22*A21*A21) 

A35*(A30*A3 UA32«A334'A34) «A6*A4 

A36* (A5UA25) f A144r(-A52<cA22-A14*A14«A264|2 7) 

A37=A24*(-A57*A25fA58*A22*A2UA14*Al4*A26*A28) 

A38=(A3 6+A37)*A23+A16 
A39=SI!I (A3B) 

A40=COS (A38) 

A41*(CC (6) *E(7) -A40*B(6) *CC (7) ) /(A394CC (7) ) 

IP(A41) 510,509,510 
509 A41*0. 00000005 
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TDP02210 

TDP02220 I 

TDP02230 

TDP02240 

TDP02250 

TDP02260 I 

TDP02270 I 

TDP02280 

TDP02290 I 

TDP02300 

TDP02310 

TDP02320 

TDP02330 

TDP02340 

TDP023S0 

TDP02360 

TDP02370 

TDP02380 

TDP02390 

TDP02400 

TOP02410 

TOP02420 

TDP02430 

TDP02440 

TDP02450 

TDP02460 

TDP02470 

TOP02480 

TDP02490 

TDP02500 

TDP02510 

TDP02520 

TDP02530 

TDP02540 

TDP02550 

TDP02560 

TDP02570 

TDP02580 

TDP02590 

TDP02600 

TDP02610 

TDP02620 

TDP02630 

TDP02640 

TDP02650 

TDP02660 

TDP02670 

TDP02680 

TOP02690 

TDP02700 

TDP02710 

TDP02720 

TOP 02 730 

TDP02740 I 

TDP02750 I 



P' I?.'. TOPOS 


PORTRAM C 


OHIO HHIPBRSm AflOHICS BHGIHBBBIHG CBHTBR 


510 A42=1.0/A41 
A43»ATAN(A42) 

IP(C35) 515, 514,514 

514 IP(C35-pn 511,512,512 

511 IP(A41) 520,521,521 

520 A43*PI*A43 
GO TO 521 

512 IF(A41) 517,518,518 

515 IF(Cl5fPI) 511,511,516 

516 IF(A41) 517,518,518 

517 A43*7T-A41 
GO TO 521 

518 A43*2.0*Pr- A43 

521 A43*A43fPI 
A43=A43-2.0*Pr 
IF(A43) 522, 523,523 

522 A43«A43+2.0*Pr 

523 A44=STM (A43) 

A45*COS (A43) 
A46«A35/1609.344 

IF (A46- 100. 0) 525,526,526 

525 A47=B1/A46*B2fB3*A46 
GO TO 527 

526 A47=A1/A46* A2*A3^A46 

527 A46=A35/A4 

GO TO (15,19 ,00,95,55,65) ,T 
99 RBTORP 
END 


TDP02760 
TDP02770 
TDP02780 
TDP02790 
TDP02800 
TDP02810 
TDP02820 
TDP02830 
TDP02840 
TDP02850 
TDP02860 
TDP02 870 
TDP02880 
TDP02890 
TDP02900 
TDP02910 
TDP02920 
TDP02930 
TDP02 940 
TDP02950 
TDP02960 
TDP02970 
TDP02980 
TDP02990 
TDP03000 
TDP03010 
TDP03020 
TDP03030 
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&PPBNDl)r V tisitng for Block Data coastaata caqaired by 
subprograa TDPOS. 



P’':.!!: 9'>600W'C PORTS AM A 



OHIO tJHIVBRSITT 


Afiomcs BHGIflBBRIPJ CBRTBB 


BLOCP DATA 

THIS IS THE CHAIM DATA FOR THE 9960 (HS HOHTHBAST) STATIOHS 
H (CARlnOH) AND I (NAHTOCHBT) . 

HODIPIPD CONSTANTS TO NORTH AHBRICAH DATOH 1927 (NAD-27). 

COnHOM/CHAIND/DBL(2) ,A5,A6»AD(8) ,DH (8) ,CS (8) 

DATA DBL/11.0E3,25.0BV 

DATA A5/2. 127S»06R8l/,A6/2. 1203281E9/ 

DATA A0/a2. 0,76.0,46.0,67.0, 

> 42.0,76.0,41.0,69.0/ 

DATA DH/42. 0,49. 0,48.0, S5.0, 

> 42. 0,49.0,1 5.0,58.0/ 

DATA CS/50.47, 34.44,27. 86, 39.16, 

> 50. 47,34.44,11.98,40.51/ 

END 


99600010 
99600020 
99600030 
99600040 
996000SO 
99600060 
99600070 
99600080 
99600090 
99600100 
99600110 
99600120 
99600130 
99600140 
99600150 
99600 loO 
996 PO 170 
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APPBRDIX 71 Listing for snbprogrnn RI6AB 







ItB: BlIRd?, fOBTRAH C 


OHIO UHI?BRSITT AVXOIICS BV6IIBeiIR6 CBITBI 


SHBROnriHB RH5AZ(P3S,RHO,AZIH) 

THPITCTT RBAL*fl(A-H,0-2) 

RFAL*U P0S(2) ,RHO,ABIH 
C0H«0»I/RHGP0S/PHI,XLHG1 

DATA A/6. 37fl2064D6/,P/3. 190076 104D-3/,PI/1. 141692653589793/ 
PHTI = POS(1> *PI/180. 

ILHG2=POS(2)*PT/180. 

DXLHG=ILHG1-XLNG2 
BBTA=DATAH ( (1. -P) •OTAH(PHr) ) 

BBTAT^DATAM C(1. -P| •OTAH(PHII)) 

C1*DCOS (BBTAI) *DSIM (DTLNG) 

C2*DC0S (BBT A) ♦DSIH (BBTAI) -DSTB (BBTA) *DCOS (BBTAI) TDCOS (DXLB6) 
C3»DSIH (BBT A) ♦DSTX (BBTAI) ♦OCOS(BBTA) TOCOS (BBTAI) *DCOS (0XLR6) 
PSI»0ATAH(C1/C2) 

THPTA»DATAH ((C2TOCOS(PSI) ♦C1*DSTH (PSI) ) /C3) 

Xn=(05;TH(BBTA) ♦DSIM (BBTAI) ) TT2 

XH*( (nsiM(BETA) -DSIH (BBTAI) ) /DSTN(THBTA) ) **2 

Xn=(1.-DCOS (THBTA) ) /DSIH (THETA) • (THETA-DSI M (THETA) ) /DSIH (THBTA) 

XV=(1.+0C0S (THBTA)) ♦ (THBTA ♦DSIH (THBTA) ) 

PHO*DABS(A*THBTA-A*P*(XHTXrTfXHTX?)/4.)/185 2.0 

IP (C1.1R.0. .AHT).C2.GE.O.) PSI»PSI*180./PI 

IP (Cl.GB.O. .AND.C2. LB. 0. ) PSI* (PlfPSI) *180. /PI 

IP (C1.LB.0. .AHO.C2.LB.0.)PSTs(PI^PSI) *180. /PI 

IP (C1.LB.0. .AMD.C2.GE.0.) PSI*(2.*PI*PSI) *1flO./PI 

AZIH=PSI 

RETOP. H 

BHD 


81300010 
8H800020 
BN600030 
RH300040 
RR6000S0 
RRG00060 
RH800070 
8RG00080 
RRG00090 
RR600100 
RR800110 
RR800120 
RRSOO 130 
RRS00140 
RRGOO 150 
RRSOO 160 
RRSOO 170 
RRSOO 180 
RRS00190 
RRSOO 200 
RRSOO 210 
RRS00220 
RHS00230 
RRSOO 240 
BHS00250 
RH300260 
RRS00270 
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APPBITDIlC 7II Lisitag of saapl* plottiag pcograa 


« 
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PILB: RHORPO FORTRAN A 


OFflO OlfI?BRSTTr AVZORICS RlTGZNBBRIirG CBRTBI 


20 

21 


C 


DATA 1 4159265/, TORG/9.S/,TORr./0. 25/, ZSCl/5./,fSCt/3. 

>/3HTPS/,I!10/-1/ 

PRINT 60 
READ 61 ,IANS 
TR (lANS.EQ. ITUS) 103*1 
CAI.I. PLOTS (BOF, 4,11) 

CALL SYNBOL fZ3R0 ,Y3Ra,0. 25,3,0, ,-1) 

DO 20 1=1,9 

CALL SYBBOt (XORG-T, TORG, 0. 25, 3, 0. ,- 1) 

DO 21 T=1,5 

CALL SYMBOL (ZOBO,YCiRG + 1 . 6*1,0. 25, 3,0. ,-1) 

CALL SYMBOL (ZORO-O. 9994/TSCI,TORG*0.8092/YSCL,0.35, 1,0. ,- 
CALL SYMBOL (Z3RG*3. 1 1 04/ZSCL,YORG* 1 1. 34 14/TSCt, 0. 35, 1 , 0. , 
CALL SYMBOL (Z3RG-4. 5399/ZSCL ,TORG*24. 7055/TSCL, 0. 35, 1 , 0. , 
CALL SYMBOL (Z3RG-14. 3B32/ZSCL, TORG* 21 .7253/TSCL ,0. 35, 1,0. 
CALL SYMBOL (X3RG-32, 7287/XSCL,TORS*21 . 1 557/ISCL,0. 35, 1,0. 
CALL SYMBOL (X3RG-45 . 2794/XSCL, TOHG*20.556 9/YSCL,0. 35, 1 , 0. 
CALL SYMBOL (X3RG-21. 6659/XSCL,TORG*6. 0122/TSCL, 0- 35, 1,0., 


1 1 


10 


100 

52 

51 


50 


RFAD(10,1,BMD=100) RMG,AZM 

RNGf=RNG 

AZM9=AZM 

RHOX=RMG*SIM(AZM*PI/18 0.)/XSCL 
RHOY*PNG*COS(AZH*Pr/ 180 .) /TSCL 
CALL P1.0T(XOR3*RHOX,YORG*RROY,3) 

RBAD(10,1,BND»100)RWG,AZM 
IFIABSfRHG-RMGl!) .GY.5.)GOTO 11 
IP (ABS( AZH-AZH$) .GT. 10.) GOTO 11 
AZN$=AZM 
RMG$=RNG 

RROX=RNG*SIN(AZM*PI/180.)/XSCL 
PHOY = RNG*COS(AZN*PI/180.)/TSCL 
CALL PLOT(XORJ*RHOX,YORG*RHOT,2) 
GOTO 10 

IF (IGO) 101, 101,52 
CALL PLOT(0.,0. ,-3) 

RBAD(12,1,BND=101) RWG,AZM 

BNG$=RNG 

AZM*=AZM 

RHOX=RNG*SIM(AZM*PT/180.) /XSCL 
RROY=RN6*COS(AZM*Pr/180.)/YSCL 
CALL PLOT(XOB3*RHOX,TOR6*RROT,3) 

R BAD ( 12,1, BHD= 101) HWG,AZM 

TF (ABS(HWG-RR3$) .GT. 5.) GOTO 51 

TP(ABS(AZH-A7M«) .GT.10.) GOTO 51 

AZM$=AZN 

RNG$=RNG 

RHOX=PNG*SIN(AZM*Pr/180.)/XSCL 
RHOY = RNG*COS(AZH*PI/180,)/YSCL 
CALL PLOT(XOPG*RHOX,YORG*RHOY,2) 




^Oop 


125/,ITeSBR000010 
RR000020 
RR000030 
RR000040 
RH000050 
RR000060 
RROOOO/0 
R ROOD 080 
RR000090 
RR000100 
RH000110 
BROOO 120 
1) RR000130 

-1) RR000140 

-1) RH000150 

,-1) RR000160 

,-1) RRO00170 

,*1) RR000180 

-1) RR000190 

RHO00200 
RR000 210 
RR000220 
RH000230 
BROOO 290 
RRO00250 
RHO00260 
BROOO 270 
RR000280 
RR000290 
RR000300 
RR000 310 
RR000320 
BROOO 330 
RRO00 390 
RR000350 
BROOO 360 
BROOO 370 
RROO0380 
RH000390 
BROOO 900 
RR000910 
RR000920 
RR000930 
RR300990 
RR000950 
RH000960 
RR000970 
RH000980 
RHO00990 
BROOO 500 
RR000510 
BROOO 520 
BROOO 530 
BR000590 
RR000550 
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PILE: !?HORHO PORTRUM k 


OHIO flHIPBRSITY AVIONICS BNGI9EEBIHG CEHTBB 


GOTO *^0 RRO00S60 

101 CALL PLOT(0.,0.,999) RBO00570 

STOP RRO00S80 

1 FORP!AT(2(P8.an RR000590 

60 P0PHAT(1I,'TW0 PLOTS? TBS/HO*) RHO00600 

61 P0PHA'»’(A1) RHO00610 

RH000620 
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